CUSTOMER
 TO w+/b
   SET COLOR OF TITLES TO w+/b
   SET COLOR OF HIGHLIGHT TO b/w
   SET COLOR OF BOX TO b/w
   SET COLOR OF INFORMATION TO b/w
   SET COLOR OF FIELDS TO b/w
ENDIF
SET VIEW TO TIMEEDIT.VUE
*-- Define the main popup menu for Quickapp
SET BORDER TO DOUBLE
DEFINE POPUP quick FROM 7,27
DEFINE BAR 1 OF quick PROMPT " Add Information" MESSAGE "Add records to database TIMEEDIT.VUE"
DEFINE BAR 2 OF quick PROMPT " Change Information" MESSAGE "Edi
CUSTCODE
CUSTNAME
"Browse database TIMEEDIT.VUE"
DEFINE BAR 4 OF quick PROMPT " Discard Marked Records " MESSAGE "Purge deleted records in database TIMEEDIT.VUE"
DEFINE BAR 5 OF quick PROMPT " Print Report" MESSAGE "Run report form TIME"
DEFINE BAR 6 OF quick PROMPT " Exit From Time" MESSAGE "Exit program to dBASE"
ON SELECTION POPUP quick DO Action WITH BAR()
*-- Define the popup menu for print redirection
DEFINE POPUP prntchk FROM 10,55
DEFINE BAR 1 OF prntchk PROMPT " Send to..." SKIP
DEFINE BAR 2 OF prntchk PROMPT REPLICATE(CHR(196),14) SKIP
DEFINE BAR 3 OF prntchk PROMPT " Screen " MESSAGE "Screen only"
DEFINE BAR 4 OF prntchk PROMPT " Printer" MESSAGE "Printer LPT1:"
DEFINE BAR 5 OF prntchk PROMPT " Label Sample " MESSAGE "Printer LPT1: with Sample label" SKIP
DEFINE BAR 6 OF prntchk PROMPT " Return" MESSAGE "Return to Main Menu"
ON SELECTION POPUP prntchk DO get_sele
*-- Window to cover work surface during edit, append, etc.
DEFINE WINDOW work FROM 0,0 TO 21,79 NONE
*-- Window for area below menu heading & for running reports/labels in
DEFINE WINDOW desktop FROM 4,0 TO 21,79 NONE
DEFINE WINDOW printemp FROM 10,25 TO 15,56
*-- Display heading centered on the screen.
DO menubox WITH lc_heading
*-- Show the menu so we don't get a flash if the user hits arrow keys or ESC
SHOW POPUP quick
SAVE SCREEN TO quick
*-- Display Quickapp menu centered on the screen.
DO WHILE gn_barv <> 6 && Prevent user 
CUSTCODE
BOISE     
WHISPER   
CUSTCODE
CUSTNAME
Boise Cascade            
Whisperwood, Ltd.        
CUSTNAME
BOISE     
BRIGHTON  
GSA       
LIMBER    04
WESTWINDS 
WHISPER   
   Sign-on defaults
 Display options
   Environment settings
   Application drive/path
1Set default values for application sign-on screen
Set default display attributes
Set default environment5Set default drive and search path for generated menus
SDEAz
!   Save all changes and exit#-
!   Abandon all changes and exit
6Save any changes made and leave applications generator7Leave application
Boise Cascade            8
Brighton Associates      
General Services Admin    
Limber Lumber Company    nme
Westwinds Construction Con d
Whisperwood, Ltd.        val
for application sign-on screen
Set default display attributes
Set default environment5Set default drive and search path for generated menus
SDEAz
!   Save all changes and exit#-
!   Abandon all changes and exit
6Save any changes made and leave applications generator7Leave applications gene
*tor without saving any changes